home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Games / ECS / StarWars / SW-Tools / StarWars-Master / StarWars-Master.amosSourceCode
Encoding:
AMOS Source Code  |  1998-06-24  |  3.3 KB  |  135 lines
  1. Default Palette 0,FFF,111
  2. Screen Open 0,640,200,16,Hires
  3. Rem EmPIRE-Galaxy-Creator 3.0
  4. Print 
  5. B=0
  6. Print " STAR WARS - Your own Chapter - Galaxy Creator 3.0"
  7. Print " -------------------------------------------------"
  8. Print "                                   by Patrick Henz"
  9. Print 
  10. Print " Bitte Drucker einschalten."
  11. Print 
  12. Randomize Timer
  13. Print "                  "
  14. Print 
  15. P=0
  16. Print 
  17. Input " Wieviele Planeten sollen erschaffen werden? ";P
  18. Input " Beginne mit Planet Nr.";B
  19. B=B-1
  20. Print 
  21. Z:
  22. If B=P Then End 
  23. Lprint 
  24. A=Rnd(7) : A=A+1 : B=B+1
  25. If A=1 Then Gosub 1 : 
  26. If A=2 Then Gosub 2 : 
  27. If A=3 Then Gosub 3 : 
  28. If A=4 Then Gosub 4 : 
  29. If A=5 Then Gosub 5 : 
  30. If A=6 Then Gosub 6 : 
  31. If A=7 Then Gosub 7 : 
  32. If A=8 Then Gosub 8 : 
  33. Goto Z : 
  34. 1
  35. Lprint " Planet";B;": W�stenplanet "
  36. R=Rnd(20) : R=R+1
  37. If R<5 Then Lprint " Menschen"
  38. If R>4 and R<21 Then Lprint " Ureinwohner"
  39. If R=21 Then Lprint " unbewohnt"
  40. ES=Rnd(6) : ES=ES+1
  41. If R<21 Then Lprint " Entwicklungsstufe:";ES
  42. If ES>6 and R<21 Then Gosub FA : 
  43. Return 
  44. 2
  45. Lprint " Planet";B;": Meeresplanet"
  46. R=Rnd(5) : R=R+1
  47. If R<6 Then Lprint " Ureinwohner"
  48. If R=6 Then Lprint " unbewohnt"
  49. ES=Rnd(6) : ES=ES+1
  50. If R<6 Then Lprint " Enwicklungsstufe:";ES
  51. If R<6 and ES>6 Then Gosub FA : 
  52. Return 
  53. 3
  54. Lprint " Planet";B;": Wasserplanet"
  55. R=Rnd(20) : R=R+1
  56. If R<11 Then Lprint " Menschen"
  57. If R>10 and R<21 Then Lprint " Ureinwohner"
  58. If R=21 Then Lprint " unbewohnt"
  59. ES=Rnd(6) : ES=ES+1
  60. If R<21 Then Lprint " Entwicklungsstufe:";ES
  61. If R<21 and ES>6 Then Gosub FA : 
  62. Return 
  63. 4
  64. Lprint " Planet";B;": Vulkanplanet"
  65. R=Rnd(20) : R=R+1
  66. If R<6 Then Lprint " Menschen"
  67. If R>5 and R<21 Then Lprint " Ureinwohner"
  68. If R=21 Then Lprint "unbewohnt"
  69. ES=Rnd(6) : ES=ES+1
  70. If R<21 Then Lprint " Entwicklungsstufe:";ES
  71. If R<21 and ES>6 Then Gosub FA : 
  72. Return 
  73. 5
  74. Lprint " Planet";B;": Eisplanet"
  75. R=Rnd(20) : R=R+1
  76. If R<6 Then Lprint " Menschen"
  77. If R>5 and R<21 Then Lprint " Ureinwohner"
  78. If R=21 Then Lprint " unbewohnt"
  79. ES=Rnd(6) : ES=ES+1
  80. If R<17 Then Lprint " Entwicklungsstufe:";ES
  81. If R<17 and ES>6 Then Gosub FA : 
  82. Return 
  83. 6
  84. Lprint " Planet";B;": Kraterplanet"
  85. R=Rnd(10) : R=R+1
  86. If R<5 Then Lprint " Menschen"
  87. If R>4 and R<11 Then Lprint " Ureinwohner"
  88. If R=11 Then Lprint " unbewohnt"
  89. ES=Rnd(6) : ES=ES+1
  90. If R<10 Then Lprint " Entwicklungsstufe:";ES
  91. If R<10 and ES>6 Then Gosub FA : 
  92. Return 
  93. 7
  94. Lprint " Planet";B;": Dschungelplanet"
  95. R=Rnd(10) : R=R+1
  96. If R=1 Then Lprint " Menschen"
  97. If R>1 and R<11 Then Lprint " Ureinwohner"
  98. If R=11 Then Lprint " unbewohnt"
  99. ES=Rnd(6) : ES=ES+1
  100. If R<11 Then Lprint " Entwicklungsstufe:";ES
  101. If R<11 and ES>6 Then Gosub FA : 
  102. Return 
  103. 8
  104. Lprint " Planet";B;": Gasplanet"
  105. R=Rnd(4) : R=R+1
  106. If R<5 Then Lprint " Ureinwohner"
  107. If R=5 Then Lprint " unbewohnt"
  108. ES=Rnd(6) : ES=ES+1
  109. If R<5 Then Lprint " Entwicklungsstufe:";ES
  110. If R<5 and ES>6 Then Gosub FA : 
  111. Return 
  112. FA:
  113. R=Rnd(5) : R=R+1
  114. Lprint " Fabrikanlagen:"
  115. If R>0 Then Lprint " A-Wing"
  116. If R>1 Then Lprint " B-Wing"
  117. If R>2 Then Lprint " TIE-Starfighter"
  118. If R>3 Then Lprint " TIE-Interceptor"
  119. If R>4 Then Lprint " Corellian Corvette"
  120. If R>5 Then Lprint " Imperial Star Destroyer"
  121. If R>6 Then Lprint " Mon Calamari Star Destroyer"
  122. Return 
  123. S:
  124. If B=P Then End 
  125. Print 
  126. A=Rnd(7) : A=A+1 : B=B+1
  127. If A=1 Then Gosub 11 : 
  128. If A=2 Then Gosub 12 : 
  129. If A=3 Then Gosub 13 : 
  130. If A=4 Then Gosub 14 : 
  131. If A=5 Then Gosub 15 : 
  132. If A=6 Then Gosub 16 : 
  133. If A=7 Then Gosub 17 : 
  134. If A=8 Then Gosub 18 : 
  135. Goto S :